home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / MAH-G18.M4 < prev    next >
Text File  |  1996-04-01  |  5KB  |  165 lines
  1. name Maho XY Plane (G18) 4 axis
  2.  
  3. % 00
  4. ! 00
  5. N >9
  6. G >2
  7. g >2 G
  8. X ->3.>4
  9. x ->3.>4 X
  10. Z ->3.>4 Mult -1
  11. z ->3.>4 Z Mult -1
  12. Y ->3.>4
  13. y ->3.>4 Y
  14. B ->3.>4
  15. b ->3.>4 B
  16. I ->3.>4
  17. i ->3.>4 I
  18. J ->3.>4
  19. K ->3.>4 Mult -1
  20. k ->3.>4 K
  21. F >4
  22. T >2
  23. M >2
  24. S >4
  25. W 00 
  26.  
  27. ModalLetters X Y Z F B                # List of letters that are modal    
  28.  
  29. ModalGs 0 1 2 3 81 83 84              # List of g codes that are modal    
  30.  
  31. Sequence#s N 1 1 1                    # Char, freq, incr & start          
  32. First#? N                             # Y or N  'Output 1st sequence no.  
  33. Last#? N                              # Y or N  'Output last sequence no. 
  34.  
  35. HCode X                               # X or X U  'Horizontal char.       
  36. VCode Z                               # Y or Y V  'Vertical char.         
  37. Dcode Y                               # Depth char.                       
  38. FeedCode F                            # Feed rate char.                   
  39.  
  40. Comment ( )                           # Begin End comment char.           
  41.  
  42. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  43. Coolant 8 9 7                         # On, Off & Mist m codes            
  44. DComp 41 42 40                        # Left, Right & Cancel m codes      
  45. LComp 43 49                           # On & Off codes                    
  46.  
  47. Feed G1                             # Linear move                       
  48. Rapid G0                            # Rapid positioning word            
  49. Cw G2                               # Circular move clockwise           
  50. Ccw G3                              # Circular move counter clockwise   
  51.  
  52. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  53.  
  54. CtrCode I K                           # I J or R or I J K L               
  55. Helical? N
  56.  
  57. Spaces? Y                             # Y or N  'Spaces between words     
  58.  
  59. Incremental? N                        # Y or N  'Inc or abs output        
  60. CtrIncremental? N                     # Y or N  'Inc or abs I & J         
  61. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  62.  
  63. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  64.  
  65. Drill 2                               # Drilling canned/manual cycle      
  66. G81 z[Depth] b[Rplane] S[Speed] F[Frate] M13 y2
  67. G79 X[H] Y[PointD] Z[V]
  68. G79 X[H] Y[PointD] Z[V]
  69. end
  70.  
  71. Peck 2                                # Pecking canned/manual cycle       
  72. G83 z[Depth] b[RPlane] S[Speed] F[Frate] M13 y2 k[VBite]
  73. G79 X[H] Y[PointD] Z[V]
  74. G79 X[H] Y[PointD] Z[V]
  75. end
  76.  
  77. Tap 2                                 # Tapping canned/manual cycle       
  78. G84 z[Depth] b[RPlane] S[Speed] F[Frate] M13 y2
  79. G79 X[H] Y[PointD] Z[v]
  80. G79 X[H] Y[PointD] Z[v]
  81. end
  82.  
  83. Ream 2                                # Reaming canned/manual cycle       
  84. G85 z[Depth] b[RPlane] S[Speed] F[Frate] M13 y2
  85. G79 X[H] Y[PointD] Z[V]
  86. G79 X[H] Y[PointD] Z[V]
  87. end
  88.  
  89. Bore 2                                # Boring canned/manual cycle        
  90. G86 z[Depth] b[Rplane] S[Speed] F[Frate] M13 y2
  91. G79 X[H] Y[PointD] Z[V]
  92. G79 X[H] Y[PointD] Z[V]
  93. end
  94.  
  95. Back                                  # Back boring canned/manual cycle   
  96. end cancel
  97.  
  98. Cancel                                # Cancel a canned/manual cycle      
  99. G80
  100. end
  101.  
  102. Index X                               # Index the rotary table            
  103. Ask [Val1] " Enter Retract value in Y before rotary move: " "10"
  104. g91
  105. G0 Y[Val1]
  106. G90
  107. G0 B[Rotangle]
  108. end
  109.  
  110. Unwind                                # Unwind the rotary table           
  111. G0 Y00
  112. G0 B0
  113. G0 B[LastRotAng]
  114. G0 Y[LastD]
  115. end
  116.  
  117. StartCode                             # Start of the program              
  118. Ask [Val7] " Enter Safety clearance in Y before toolchange: " "10"
  119. Ask [Val6] " Enter M-code for toolchange: " "6"
  120. Ask [Val8] " Enter Offset register: " "54"
  121. %0
  122. !0 N[Program#]
  123. End
  124.  
  125. 1stToolChange                         # First tool change                 
  126. G18 T[Tool] M[Val6]
  127. G51
  128. G53
  129. G[Val8]
  130. G90
  131. G0 X[H] Z[V] Y[D] S[Speed] F[FRate] M13
  132. End
  133.  
  134. Infeed                                # Enable cutter comp                
  135. G1 Y[D] F[Plunge]
  136. G43 X[H] Z[V] F[FRate]
  137. G[Side]
  138. end
  139.  
  140. Outfeed                               # Disable cutter comp               
  141. G40
  142. G1 X[H] Z[V]
  143. end
  144.  
  145. ToolChange                            # Secondary tool changes            
  146. G0 Y[Val7]
  147. T[Tool] M[Val6]
  148. G0 X[H] Z[V] Y[D] S[Speed] F[FRate] M13
  149. End
  150.  
  151. EndCode                               # End of the program                
  152. G0 Y[Val7]
  153. G53
  154. M30
  155. W0
  156. End
  157.  
  158. LineCode                              # Linear move                       
  159. G1 X[H] Y[V] Z[D] B[RotAngle] F[Frate]
  160. End
  161.  
  162. Replace "%" with "%PM"
  163.  
  164.  
  165.